home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 35
/
PC Gamer IT CD 35 2-2.iso
/
utility
/
prokal63
/
ProKalc.exe
/
0
/
RCDATA
/
TVOLUMEFORM
/
TVOLUMEFORM.txt
< prev
Wrap
Text File
|
1998-09-10
|
69KB
|
2,211 lines
object VolumeForm: TVolumeForm
Left = 397
Top = 304
BorderStyle = bsDialog
Caption = 'Volume Calculation'
ClientHeight = 274
ClientWidth = 480
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Scaled = False
OnActivate = FormActivate
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 16
object VolumeNoteBook: TPageControl
Left = 0
Top = 0
Width = 480
Height = 274
ActivePage = TabControl2
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
HotTrack = True
MultiLine = True
ParentFont = False
TabOrder = 0
object TabControl2: TTabSheet
Caption = 'Circular Ring'
object CircularRingImage: TImage
Left = 2
Top = 2
Width = 150
Height = 150
Picture.Data = {<image000.bmp>}
end
object CircRingVolumeLabel: TLabel
Left = 237
Top = 24
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CircRingBigRLabel: TLabel
Left = 243
Top = 58
Width = 76
Height = 16
Caption = 'Radius (R) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CircRingLittleRLabel: TLabel
Left = 247
Top = 90
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CircRingExp: TMemo
Left = 26
Top = 162
Width = 99
Height = 55
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any two '
'known values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object CircRingVolumeEdit: TMemo
Left = 336
Top = 22
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = CircRingVolumeEditKeyUp
end
object CircRingBigREdit: TMemo
Left = 336
Top = 54
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = CircRingBigREditKeyUp
end
object CircRingLittleREdit: TMemo
Left = 336
Top = 86
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = CircRingLittleREditKeyUp
end
object CircularRingClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = CircularRingClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object CircularRingSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = CircularRingSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object CircularRingCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object CircularRingHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet2: TTabSheet
Caption = 'Cone'
object ConeImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image001.bmp>}
end
object ConeVolumeLabel: TLabel
Left = 242
Top = 22
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeVolumeRadiusLabel: TLabel
Left = 252
Top = 56
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeVolumeHeightLabel: TLabel
Left = 251
Top = 90
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ConeVolumeExp: TMemo
Left = 32
Top = 162
Width = 101
Height = 53
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any two '
'known values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object ConeVolVolumeEdit: TMemo
Left = 334
Top = 18
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = ConeVolVolumeEditKeyUp
end
object ConeVolRadiusEdit: TMemo
Left = 334
Top = 52
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = ConeVolRadiusEditKeyUp
end
object ConeVolHeightEdit: TMemo
Left = 334
Top = 86
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = ConeVolHeightEditKeyUp
end
object ConeClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = ConeClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object ConeSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = ConeSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object ConeCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object ConeHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet3: TTabSheet
Caption = 'Cube'
object CubeImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image002.bmp>}
end
object CubeVolumeLabel: TLabel
Left = 234
Top = 32
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CubeHeightLabel: TLabel
Left = 240
Top = 74
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CubeVolumeExp: TMemo
Left = 22
Top = 158
Width = 107
Height = 67
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'known '
'value, then '
#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object CubeVolumeEdit: TMemo
Left = 330
Top = 26
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = CubeVolumeEditKeyUp
end
object CubeHeightEdit: TMemo
Left = 330
Top = 68
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = CubeHeightEditKeyUp
end
object CubeClearBtn: TBitBtn
Left = 169
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = CubeClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object CubeSolveBtn: TBitBtn
Left = 243
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = CubeSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object CubeCloseBtn: TBitBtn
Left = 317
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Kind = bkClose
end
object CubeHelpBtn: TBitBtn
Left = 391
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet4: TTabSheet
Caption = 'Cylinder'
object CylinderImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image003.bmp>}
end
object CylinderVolVolumeLabel: TLabel
Left = 234
Top = 28
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CylinderVolRadiusLabel: TLabel
Left = 239
Top = 64
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CylinderVolHeightLabel: TLabel
Left = 240
Top = 98
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object CylinderVolExp: TMemo
Left = 32
Top = 166
Width = 83
Height = 55
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'two values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object CylinderVolVolumeEdit: TMemo
Left = 328
Top = 24
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = CylinderVolVolumeEditKeyUp
end
object CylinderVolRadiusEdit: TMemo
Left = 328
Top = 60
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = CylinderVolRadiusEditKeyUp
end
object CylinderVolHeightEdit: TMemo
Left = 328
Top = 94
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = CylinderVolHeightEditKeyUp
end
object CylinderClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = CylinderClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object CylinderSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = CylinderSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object CylinderCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object CylinderHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet5: TTabSheet
Caption = 'Ellipsoid'
object EllipsoidImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image004.bmp>}
end
object EllipsoidVolVolumeLabel: TLabel
Left = 231
Top = 18
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EllipsoidVolRadiusLabel: TLabel
Left = 241
Top = 52
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EllipsoidVolLongRLabel: TLabel
Left = 223
Top = 86
Width = 90
Height = 16
Caption = 'Diameter (a) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EllipsoidVolShortRLabel: TLabel
Left = 223
Top = 120
Width = 90
Height = 16
Caption = 'Diameter (b) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EllipsoidVolumeExp: TMemo
Left = 24
Top = 156
Width = 97
Height = 67
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'three known '
'values, then '
#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 8
end
object EllipsoidVolVolumeEdit: TMemo
Left = 328
Top = 14
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = EllipsoidVolVolumeEditKeyUp
end
object EllipsoidVolRadiusEdit: TMemo
Left = 328
Top = 48
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = EllipsoidVolRadiusEditKeyUp
end
object EllipsoidVolLongDEdit: TMemo
Left = 328
Top = 82
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = EllipsoidVolLongDEditKeyUp
end
object EllipsoidVolShortDEdit: TMemo
Left = 328
Top = 116
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 3
WantReturns = False
WordWrap = False
OnKeyUp = EllipsoidVolShortDEditKeyUp
end
object EllipsoidClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = EllipsoidClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object EllipsoidSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = EllipsoidSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object EllipsoidCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
Kind = bkClose
end
object EllipsoidHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet6: TTabSheet
Caption = 'Paraboloid'
object ParaboloidImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image005.bmp>}
end
object ParaboloidVolumeLabel: TLabel
Left = 228
Top = 26
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ParaboloidRadiusLabel: TLabel
Left = 238
Top = 60
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ParaboloidHeightLabel: TLabel
Left = 237
Top = 94
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object ParaboloidExp: TMemo
Left = 30
Top = 158
Width = 91
Height = 69
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any two '
'known '
'values, then '
#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object ParaboloidVolumeEdit: TMemo
Left = 328
Top = 24
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = ParaboloidVolumeEditKeyUp
end
object ParaboloidRadiusEdit: TMemo
Left = 328
Top = 58
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = ParaboloidRadiusEditKeyUp
end
object ParaboloidHeightEdit: TMemo
Left = 328
Top = 92
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = ParaboloidHeightEditKeyUp
end
object ParaboloidClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = ParaboloidClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object ParaboloidSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = ParaboloidSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object ParaboloidCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object ParaboloidHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet7: TTabSheet
Caption = 'Pyramid'
object PyramidImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image006.bmp>}
end
object PyramidVolVolumeLabel: TLabel
Left = 234
Top = 33
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PyramidVolAreaLabel: TLabel
Left = 203
Top = 70
Width = 113
Height = 16
Caption = 'Area of base (A) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PyramidVolHeightLabel: TLabel
Left = 243
Top = 106
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object PyramidVExp: TMemo
Left = 30
Top = 166
Width = 95
Height = 69
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any two'
'known values, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object PyramidVolVolumeEdit: TMemo
Left = 328
Top = 30
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = PyramidVolVolumeEditKeyUp
end
object PyramidVolAreaEdit: TMemo
Left = 328
Top = 66
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = PyramidVolAreaEditKeyUp
end
object PyramidVolHeightEdit: TMemo
Left = 328
Top = 102
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = PyramidVolHeightEditKeyUp
end
object PyramidClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = PyramidClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object PyramidSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = PyramidSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object PyramidCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object PyramidHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet8: TTabSheet
Caption = 'Rect. Prism'
object PrismImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image007.bmp>}
end
object RectPrismVolVolumeLabel: TLabel
Left = 236
Top = 26
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RectPrismVolSideALabel: TLabel
Left = 257
Top = 61
Width = 61
Height = 16
Caption = 'Side (a) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RectPrismVolSideBLabel: TLabel
Left = 257
Top = 95
Width = 61
Height = 16
Caption = 'Side (b) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RectPrismVolHeightLabel: TLabel
Left = 245
Top = 128
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object RecPrismVolExp: TMemo
Left = 26
Top = 160
Width = 97
Height = 69
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'three known '
'values, then '
#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 8
end
object RectPrismVolVolumeEdit: TMemo
Left = 328
Top = 22
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = RectPrismVolVolumeEditKeyUp
end
object RectPrismVolSideAEdit: TMemo
Left = 328
Top = 57
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = RectPrismVolSideAEditKeyUp
end
object RectPrismVolSideBEdit: TMemo
Left = 328
Top = 91
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = RectPrismVolSideBEditKeyUp
end
object RectPrismVolHeightEdit: TMemo
Left = 328
Top = 126
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 3
WantReturns = False
WordWrap = False
OnKeyUp = RectPrismVolHeightEditKeyUp
end
object PrismClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = PrismClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object PrismSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = PrismSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object PrismCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
Kind = bkClose
end
object PrismHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet9: TTabSheet
Caption = 'Sphere'
object SphereImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image008.bmp>}
end
object SphereVolVolumeLabel: TLabel
Left = 238
Top = 44
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphereVolRadiusLabel: TLabel
Left = 248
Top = 84
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphereVolExp: TMemo
Left = 28
Top = 162
Width = 95
Height = 59
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'known value, '
'then '#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object SphereVolVolumeEdit: TMemo
Left = 330
Top = 40
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = SphereVolVolumeEditKeyUp
end
object SphereVolRadiusEdit: TMemo
Left = 330
Top = 80
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = SphereVolRadiusEditKeyUp
end
object SphereClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = SphereClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object SphereSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = SphereSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object SphereCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Kind = bkClose
end
object SphereHelpBtn: TBitBtn
Left = 389
Top = 196
Width = 70
Height = 24
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
object TabSheet10: TTabSheet
Caption = 'Spherical Sector'
object SphericalSectorImage: TImage
Left = 0
Top = 0
Width = 150
Height = 150
Picture.Data = {<image009.bmp>}
end
object SphSectVolVolumeLabel: TLabel
Left = 230
Top = 34
Width = 82
Height = 16
Caption = 'Volume (V) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphSectVolRadiusLabel: TLabel
Left = 240
Top = 69
Width = 72
Height = 16
Caption = 'Radius (r) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SphSectVolHeightLabel: TLabel
Left = 239
Top = 108
Width = 73
Height = 16
Caption = 'Height (h) ='
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SpherSectVolExp: TMemo
Left = 32
Top = 156
Width = 83
Height = 71
TabStop = False
Alignment = taCenter
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
Lines.Strings = (
'Enter any '
'two known '
'values, then '
#39'Solve'#39'.')
ParentColor = True
ParentCtl3D = False
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object SphSectVolVolumeEdit: TMemo
Left = 324
Top = 30
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 0
WantReturns = False
WordWrap = False
OnKeyUp = SphSectVolVolumeEditKeyUp
end
object SphSectVolRadiusEdit: TMemo
Left = 324
Top = 66
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 1
WantReturns = False
WordWrap = False
OnKeyUp = SphSectVolRadiusEditKeyUp
end
object SphSectVolHeightEdit: TMemo
Left = 324
Top = 102
Width = 130
Height = 26
Alignment = taRightJustify
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
MaxLength = 15
ParentFont = False
TabOrder = 2
WantReturns = False
WordWrap = False
OnKeyUp = SphSectVolHeightEditKeyUp
end
object SphericalSectorClearBtn: TBitBtn
Left = 168
Top = 196
Width = 70
Height = 24
Caption = 'C&lear'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = SphericalSectorClearBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object SphericalSectorSolveBtn: TBitBtn
Left = 242
Top = 196
Width = 70
Height = 24
Caption = '&Solve'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = SphericalSectorSolveBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00337000000000
73333337777777773F333308888888880333337F3F3F3FFF7F33330808089998
0333337F737377737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3F3F3F3F7F33330808080808
0333337F737373737F333308888888880333337F3FFFFFFF7F33330800000008
0333337F7777777F7F333308000E0E080333337F7FFFFF7F7F33330800000008
0333337F777777737F333308888888880333337F333333337F33330888888888
03333373FFFFFFFF733333700000000073333337777777773333}
NumGlyphs = 2
end
object SphericalSectorCloseBtn: TBitBtn
Left = 316
Top = 196
Width = 70
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Kind = bkClose
end
object SphericalSectorHelpBtn: TBitBtn
Left = 390
Top = 196
Width = 70
Height = 24
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = CircularRingHelpBtnClick
Kind = bkHelp
end
end
end
end